home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / new_file / extras / games / bingo / bingo.lst next >
File List  |  1992-05-19  |  29KB  |  1,364 lines
  1. ' ********************************
  2. ' *         ST - BINGO           *
  3. ' *     ATARI ST- COMPUTERS      *
  4. ' *         A.BAGGETTA           *
  5. ' *       GFA BASIC V.2.0        *
  6. ' *            1988              *
  7. ' ********************************
  8. Dim L$(5),N$(100),Sv$(1000),Comptr1%(5,5),Comptr2%(5,5),Ct%(25)
  9. Dim B(5),I(5),N(5),G(5),O(5),Bb(5),Ii(5),Nn(5),Gg(5),Oo(5),C(5)
  10. Dim Oldcolri(15),Oldcolrr(15),Oldcolrg(15),Oldcolrb(15)
  11. Dim Msa(50),Msb(50),Msc(50),Msd(50),Mse(50),Pm(50),Pcm(50),Pcmr(50)
  12. @Colr_get                                 !Save the colors
  13. Cls
  14. If Exist("Winner.fil") Then               !Check for Winner File
  15.   Print "Loading Winner file..."          !If ok load the file.  If not
  16.   Open "I",#1,"Winner.fil"                !Start over again
  17.   Input #1,Win$
  18.   Close #1
  19. Else
  20.   Alert 3," | |Missing Winner File",1,"END",Ab
  21.   Goto Finish
  22. Endif
  23. Cls
  24. Start_prg:
  25. Cls                                       !Clear the screen and set the
  26. Restore Clrz                              !Screen colors
  27. For Clrz%=1 To 9
  28.   Read Cl1,Cl2,Cl3,Cl4
  29.   Setcolor Cl1,Cl2,Cl3,Cl4
  30. Next Clrz%
  31. Clrz:
  32. Data 0,0,0,0,1,7,7,7,2,2,3,2,3,5,3,1,4,7,2,3,6,4,5,3,7,2,4,3,9,5,4,3,15,7,7,7
  33. Rna=1000                                 !Select a random amount for prize
  34. Rnb=5000                                 !Money
  35. Cpz=Int(Rnd*(Rnb-Rna+1))+Rna
  36. X%=0
  37. Deffill 2,2,7                            !Set up the menu screen
  38. Pbox 8,10,296,199
  39. Graphmode 4
  40. Deftext 4,4,0,32
  41. Text 38,44,"   ST-BINGO   "
  42. Graphmode 1
  43. Deffill 3,2,8
  44. Prbox 20,55,285,185
  45. Defline 6,2,0,0
  46. Prbox 20,55,285,185
  47. Rbox 20,55,285,185
  48. Graphmode 2
  49. Deftext 5,5,0,9
  50. Text 50,80,"Your Selection?"
  51. Deftext 6,5,0,8
  52. Text 100,100,"Play Bingo"
  53. Text 100,120,"Make Cards"
  54. Text 100,140,"Quit"
  55. D$=Chr$(14)+Chr$(15)
  56. Dup$=String$(9,D$)
  57. Deftext 1,5,0,8
  58. Text 50,160,Dup$
  59. Color 6
  60. Circle 85,98,5
  61. Circle 85,118,5
  62. Circle 85,138,5
  63. Showm
  64. Do                                      !Mouse control for the Menu Screen
  65.   Mouse Mc,Mr,Mb
  66.   If (Mc>80 And Mc<90) And (Mr>95 And Mr<101) And Mb=1
  67.     Graphmode 1
  68.     Deffill 3,2,8
  69.     Prbox 20,55,285,185
  70.     @Play_bingo
  71.     Goto Start_prg
  72.   Endif
  73.   If (Mc>80 And Mc<90) And (Mr>115 And Mr<123) And Mb=1
  74.     Print At(10,5);"make cards"
  75.     Cls
  76.     Goto Make_cards
  77.     Goto Start_prg
  78.   Endif
  79.   If (Mc>80 And Mc<90) And (Mr>135 And Mr<141) And Mb=1
  80.     Cls
  81.     Goto Finish
  82.   Endif
  83. Loop
  84. '
  85. Procedure Play_bingo
  86.   Leave=0 !LEAVE GAME FLAG
  87.   Cd=0 !CARD # FLAG
  88.   @Array_set                         !Clear the arrays
  89.   '                                   Set up the main screen to play BINGO
  90.   Deffill 0,2,8
  91.   Graphmode 2
  92.   Text 85,100,"                 "
  93.   Line 100,79,204,79
  94.   Line 100,113,204,113
  95.   For Grow=100 To 204 Step 2
  96.     Pbox 100,80,Grow,112
  97.   Next Grow
  98.   Deftext 1,4,0,6
  99.   Text 110,93,"Let's Play"
  100.   Text 125,103,"BINGO!"
  101.   Deffill 10,2,8
  102.   Prbox 102,125,204,135
  103.   Deffill 6,2,8
  104.   Prbox 50,150,120,165
  105.   Prbox 185,150,255,165
  106.   Deffill 11,2,8
  107.   Defline 1,3,0,0
  108.   Color 8
  109.   Rbox 20,55,285,185
  110.   Rbox 102,125,204,135
  111.   Rbox 50,150,120,165
  112.   Rbox 185,150,255,165
  113.   Deftext 3,16,0,5
  114.   Graphmode 2
  115.   Text 67,160,"CALL"
  116.   Text 197,160,"BINGO!"
  117.   Deftext 3,0,0,4
  118.   Text 110,132,"AUTO CALL - OFF"
  119.   Deftext 1,0,0,4
  120.   Defline 1,1,0,0
  121.   Color 0
  122.   '
  123.   Restore Small_crds                     !Draw the computer's cards
  124.   For Smx%=1 To 20
  125.     Read Sma,Smb,Smc,Smd
  126.     If Smx%=1 Or Smx%=11 Then
  127.       Rbox Sma,Smb,Smc,Smd
  128.     Else
  129.       Line Sma,Smb,Smc,Smd
  130.     Endif
  131.   Next Smx%
  132.   Graphmode 2
  133.   Deftext 1,1,0,4
  134.   Text 28,68,"B"
  135.   Text 44,68,"I"
  136.   Text 60,68,"N"
  137.   Text 74,68,"G"
  138.   Text 90,68,"O"
  139.   Deftext 1,0,0,4
  140.   Restore Comp_crd1
  141.   '
  142.   ' Store the numbers on card 1 in an array comptr1%(xx,yy)
  143.   '
  144.   Freebe=0
  145.   Xx=0
  146.   Yy=0
  147.   For Rp%=1 To 25
  148.     Read C,R
  149.     N=Int(Rnd*75)+1
  150.     N$=Str$(N)
  151.     If Len(N$)=1
  152.       N$=" "+N$
  153.     Endif
  154.     If Rp%<>13 Then
  155.       Text C,R,N$
  156.     Else
  157.       Deftext 10,0,0,4
  158.       Text C,R,"FR"
  159.       Deftext 1,0,0,4
  160.     Endif
  161.     If Rp%>0 And Rp%<6 Then
  162.       Xx=1
  163.     Endif
  164.     If Rp%>5 And Rp%<11 Then
  165.       Xx=2
  166.     Endif
  167.     If Rp%>10 And Rp%<16 Then
  168.       Xx=3
  169.     Endif
  170.     If Rp%>15 And Rp%<21 Then
  171.       Xx=4
  172.     Endif
  173.     If Rp%>20 And Rp%<26 Then
  174.       Xx=5
  175.     Endif
  176.     If Yy=5 Then
  177.       Yy=0
  178.     Endif
  179.     Yy=Yy+1
  180.     If Rp%=13 Then
  181.       N=-1
  182.     Endif
  183.     Comptr1%(Xx,Yy)=N
  184.   Next Rp%
  185.   '
  186.   Deftext 1,1,0,4
  187.   Text 211,68,"B"
  188.   Text 227,68,"I"
  189.   Text 242,68,"N"
  190.   Text 257,68,"G"
  191.   Text 272,68,"O"
  192.   Deftext 1,0,0,4
  193.   '
  194.   Restore Comp_crd2
  195.   '
  196.   ' Store the numbers on card 2 in an array comptr2%(xx,yy)
  197.   '
  198.   Freebe=0
  199.   Xx=0
  200.   Yy=0
  201.   For Rp%=1 To 25
  202.     Read C,R
  203.     N=Int(Rnd*75)+1
  204.     N$=Str$(N)
  205.     If Len(N$)=1
  206.       N$=" "+N$
  207.     Endif
  208.     If Rp%<>13 Then
  209.       Text C,R,N$
  210.     Else
  211.       Deftext 10,0,0,4
  212.       Text C,R,"FR"
  213.       Deftext 1,0,0,4
  214.     Endif
  215.     If Rp%>0 And Rp%<6 Then
  216.       Xx=1
  217.     Endif
  218.     If Rp%>5 And Rp%<11 Then
  219.       Xx=2
  220.     Endif
  221.     If Rp%>10 And Rp%<16 Then
  222.       Xx=3
  223.     Endif
  224.     If Rp%>15 And Rp%<21 Then
  225.       Xx=4
  226.     Endif
  227.     If Rp%>20 And Rp%<26 Then
  228.       Xx=5
  229.     Endif
  230.     If Yy=5 Then
  231.       Yy=0
  232.     Endif
  233.     Yy=Yy+1
  234.     If Rp%=13 Then
  235.       N=-1
  236.     Endif
  237.     Comptr2%(Xx,Yy)=N
  238.   Next Rp%
  239.   Deftext 11,0,0,4
  240.   Text 105,68,Chr$(4)+"COMPUTER CARDS"+Chr$(3)
  241.   Deftext 11,0,0,4
  242.   Text 40,135,"CARD #1"
  243.   Text 223,135,"CARD #2"
  244.   Graphmode 2
  245.   Box 145,153,160,162
  246.   Text 148,159,Chr$(14)+Chr$(15)
  247.   Deftext 1,1,0,4
  248.   Text 141,169,"QUIT"
  249.   Deftext 1,0,0,4
  250.   Graphmode 4
  251.   Text 45,172," Last Winner "
  252.   Text 183,172," Cash Prize  "
  253.   Graphmode 2
  254.   Text 60,180,Win$
  255.   Text 195,180,"$"+Str$(Cpz)+".00"
  256.   Graphmode 1
  257.   Yup=0
  258.   T:
  259.   Do                                    !Game Mouse Control
  260.     Showm
  261.     Mouse Mc,Mr,Mb
  262.     If (Mc>50 And Mc<120) And (Mr>150 And Mr<165) And Mb=1
  263.       Goto Jout
  264.     Endif
  265.     If (Mc>185 And Mc<255) And (Mr>150 And Mr<165) And Mb=1
  266.       Hidem
  267.       Sget Screen$
  268.       @Check_bingo
  269.       If Yup Then
  270.         Goto Sto
  271.       Endif
  272.     Endif
  273.     If (Mc>100 And Mc<200) And (Mr>125 And Mr<135) And Mb=1
  274.       Graphmode 2
  275.       Color 8
  276.       Deffill 10,2,8
  277.       Prbox 102,125,204,135
  278.       Defline 1,3,0,0
  279.       Rbox 102,125,204,135
  280.       Deftext 3,0,0,4
  281.       Text 110,132,"AUTO CALL - ON"
  282.       Graphmode 1
  283.       Deftext 1,0,0,12
  284.       Auto=1
  285.       Goto Jout
  286.     Endif
  287.     If (Mc>145 And Mc<160) And (Mr>153 And Mr<162) And Mb=1
  288.       Goto Sto
  289.     Endif
  290.   Loop
  291.   Jout:
  292.   Showm
  293.   Deftext 1,0,0,12
  294.   Deffill 3,2,8
  295.   For Grow=204 To 100 Step -2        !Clear the old Bingo number
  296.     Sound 1,15,Grow/8,4
  297.     Pbox Grow,80,204,112
  298.   Next Grow
  299.   Sound 1,0
  300.   Deffill 0,2,8
  301.   For Grow=100 To 204 Step 2
  302.     Sound 1,15,Grow/8,4
  303.     Pbox 100,80,Grow,112
  304.   Next Grow
  305.   Sound 1,0
  306.   Try_again:
  307.   Tg=0                                !Select Bingo number
  308.   Lter=Int(Rnd*5)+1
  309.   N=Int(Rnd*75)+1
  310.   For Cut%=0 To X%
  311.     If Sv$(Cut%)=L$(Lter)+Str$(N) Then
  312.       Tg=1
  313.     Endif
  314.   Next Cut%
  315.   If Tg=1 Then
  316.     Goto Try_again
  317.   Endif
  318.   Ck$=L$(Lter)
  319.   @Chk_comp_crd(Ck$)                 !Run a check on the cards
  320.   If Leave=1 Then
  321.     Deftext 1,4,0,32
  322.     If Cd=1 Then
  323.       Get 23,57,100,128,Cd$ ! CUT CARD ONE FROM SCREEN
  324.       Cls
  325.       Text 70,30,"ST-BINGO"
  326.       Setcolor 0,4,0,0
  327.       Put 100,50,Cd$,3
  328.       Print At(15,19);"CARD #1"
  329.       Print At(12,21);"COMPUTER WINS"
  330.       Win$="COMPUTER"
  331.       Open "o",#1,"Winner.fil"
  332.       Write #1,Win$
  333.       Close #1
  334.       Pause 400
  335.       Goto Sto
  336.     Else
  337.       If Cd=2 Then
  338.         Get 205,57,282,128,Cd$
  339.         Cls
  340.         Text 70,30,"ST-BINGO"
  341.         Setcolor 0,4,0,0
  342.         Put 100,50,Cd$,3
  343.         Print At(15,19);"CARD #2"
  344.         Print At(12,21);"COMPUTER WINS"
  345.         Win$="COMPUTER"
  346.         Open "o",#1,"Winner.fil"
  347.         Write #1,Win$
  348.         Close #1
  349.         Pause 400
  350.         Goto Sto
  351.       Endif
  352.     Endif
  353.   Endif
  354.   Jmphere:
  355.   Text 108,100,L$(Lter)+"  "+Str$(N)
  356.   ' Save the letter/number combination for later check
  357.   X%=X%+1
  358.   Sv$(X%)=L$(Lter)+Str$(N)
  359.   If Auto=1
  360.     For Del=1 To 75000
  361.       Showm
  362.     Next Del
  363.   Endif
  364.   Repeat
  365.     Mouse Mc,Mr,Mb
  366.     If Mb=2 Then
  367.       Inc Visit
  368.       If Visit=1
  369.         Print At(17,14);"PAUSE"
  370.       Endif
  371.     Endif
  372.   Until Mb<>2
  373.   If Mb<>2
  374.     Print At(17,14);"         "
  375.     Visit=0
  376.   Endif
  377.   If (Mc>100 And Mc<200) And (Mr>125 And Mr<135) And Mb=1
  378.     Auto=0
  379.     Graphmode 2
  380.     Color 8
  381.     Deffill 10,2,8
  382.     Prbox 102,125,200,135
  383.     Defline 1,3,0,0
  384.     Rbox 102,125,200,135
  385.     Deftext 3,0,0,4
  386.     Text 110,132,"AUTO CALL - OFF"
  387.     Graphmode 1
  388.     Deftext 1,0,0,12
  389.     Pause 50
  390.   Endif
  391.   If Auto=0 Then
  392.     Goto T
  393.   Else
  394.     Goto Jout
  395.   Endif
  396.   Sto:
  397. Return
  398. '
  399. Make_cards:
  400. Count=0
  401. Setcolor 0,7,7,7                        ! Set new screen colors
  402. Setcolor 1,5,2,3
  403. Setcolor 15,0,0,0
  404. Deftext 1,0,0,15
  405. Text 70,50,"Bingo Card Designer"        ! Set up Alert String
  406. Alert$="Before Printing Bingo Card        |be sure your printer is set  |to 960 dots per line.  "
  407. Alert 0,Alert$,0,"Randomly|Personal|Quit",Choose
  408. If Choose=1 Then                        ! Alert Box choices
  409.   Goto Make_one
  410. Endif
  411. If Choose=2 Then
  412.   Goto Make_two
  413. Endif
  414. If Choose=3 Then
  415.   Goto Start_prg
  416. Endif
  417. Make_one:                               ! Design the first type of card
  418. Cls
  419. Tcrd:
  420. Cls
  421. Color 1
  422. Defline 0,3,0,0
  423. Rbox 30,10,250,185
  424. Defline 0,2,0,0
  425. Line 74,10,74,185
  426. Line 118,10,118,185
  427. Line 162,10,162,185
  428. Line 206,10,206,185
  429. Defline 0,3,0,0
  430. Line 30,39,250,39
  431. Defline 0,2,0,0
  432. Line 30,68,250,68
  433. Line 30,97,250,97
  434. Line 30,126,250,126
  435. Line 30,155,250,155
  436. ' fill in the labels on the large card
  437. Deftext 2,4,0,20
  438. Restore Big_crds_lbls
  439. For Bigx%=1 To 30
  440.   Read Biga,Bigb,Bigc$
  441.   If Bigx%=6 Then
  442.     Deftext 1,0,0,4
  443.   Endif
  444.   Text Biga,Bigb,Bigc$
  445. Next Bigx%
  446. Deftext 2,0,0,10
  447. Restore Cdata
  448. Freebe=0
  449. For Rp=1 To 25                        ! Put numbers on the card
  450.   Read C,R
  451.   N=Int(Rnd*75)+1
  452.   N$=Str$(N)
  453.   If Len(N$)=1
  454.     N$=" "+N$
  455.   Endif
  456.   If Freebe<2 Then
  457.     Free=Int(Rnd*15)+1
  458.     If Free=9
  459.       Inc Freebe
  460.       Deftext 2,0,0,7
  461.       Text C-7,R,"FREE"
  462.       Deftext 2,0,0,10
  463.       Goto Jmp
  464.     Endif
  465.   Endif
  466.   If Rp<>13 Then
  467.     Text C,R,N$
  468.   Else
  469.     Deftext 2,0,0,7
  470.     Text C-7,R,"FREE"
  471.     Deftext 2,0,0,10
  472.   Endif
  473.   Jmp:
  474. Next Rp
  475. Deftext 1,0,0,4                         ! Check to see if card is OK
  476. Text 260,50,"Card OK?"
  477. Box 260,70,270,80
  478. Box 290,70,300,80
  479. Box 260,85,300,95
  480. Text 263,77,"Y"
  481. Text 293,77,"N"
  482. Text 268,92,"QUIT"
  483. Inc Count
  484. Text 263,110,"CARD #"+Str$(Count)
  485. Do
  486.   Mouse Mc,Mr,Mb
  487.   If (Mc>260 And Mc<270) And (Mr>70 And Mr<80) And Mb=1
  488.     Hidem
  489.     Deffill 0,2,8
  490.     Pbox 260,40,370,120
  491.     Hardcopy
  492.     Showm
  493.     For Mulcop=1 To 35
  494.       Lprint
  495.     Next Mulcop
  496.     Goto Tcrd
  497.   Endif
  498.   If (Mc>290 And Mc<300) And (Mr>70 And Mr<80) And Mb=1
  499.     Dec Count
  500.     Goto Tcrd
  501.   Endif
  502.   If (Mc>260 And Mc<300) And (Mr>85 And Mr<95) And Mb=1
  503.     Goto Bak_menu
  504.   Endif
  505. Loop
  506. Bak_menu:
  507. Goto Start_prg
  508. Make_two:                              ! Make the second kind of card
  509. '
  510. '
  511. Graphmode 1
  512. Setcolor 0,7,7,7
  513. Setcolor 1,5,2,3
  514. Setcolor 15,0,0,0
  515. Deftext 1,0,0,15
  516. Cls
  517. Color 1
  518. Defline 0,3,0,0
  519. Rbox 30,10,250,185
  520. Defline 0,2,0,0
  521. Line 74,10,74,185
  522. Line 118,10,118,185
  523. Line 162,10,162,185
  524. Line 206,10,206,185
  525. Defline 0,3,0,0
  526. Line 30,39,250,39
  527. Defline 0,2,0,0
  528. Line 30,68,250,68
  529. Line 30,97,250,97
  530. Line 30,126,250,126
  531. Line 30,155,250,155
  532. ' fill in the labels on the large card
  533. Deftext 2,4,0,20
  534. Restore Big_crds_lbls
  535. For Bigx%=1 To 30
  536.   Read Biga,Bigb,Bigc$
  537.   If Bigx%=6 Then
  538.     Deftext 1,0,0,4
  539.   Endif
  540.   Text Biga,Bigb,Bigc$
  541. Next Bigx%
  542. Deftext 2,0,0,4
  543. Defline 1,1,0,0
  544. Box 260,85,300,95
  545. Box 260,105,300,115
  546. Text 268,92,"DONE"
  547. Text 268,112,"QUIT"
  548. Deftext 2,0,0,10
  549. Restore Mous_crd_dat
  550. For Msrch%=1 To 50
  551.   Read A,B,C,D,E,F,G,H
  552.   Msa(Msrch%)=A
  553.   Msb(Msrch%)=B
  554.   Msc(Msrch%)=C
  555.   Msd(Msrch%)=D
  556.   Mse(Msrch%)=E
  557.   Pm(Msrch%)=F
  558.   Pcm(Msrch%)=G
  559.   Pcmr(Msrch%)=H
  560. Next Msrch%
  561. '
  562. Do
  563.   Mouse A,B,C
  564.   For Msrch%=1 To 50
  565.     If (A>Msa(Msrch%) And A<Msb(Msrch%)) And (B>Msc(Msrch%) And B<Msd(Msrch%)) And C=1 Then
  566.       P=Pm(Msrch%)
  567.       Pc=Pcm(Msrch%)
  568.       Pr=Pcmr(Msrch%)
  569.       @Make_ver_crdup
  570.       C=0
  571.     Endif
  572.     If (A>Msa(Msrch%) And A<Msb(Msrch%)) And (B>Msc(Msrch%) And B<Msd(Msrch%)) And C=2 Then
  573.       P=Pm(Msrch%)
  574.       Pc=Pcm(Msrch%)
  575.       Pr=Pcmr(Msrch%)
  576.       @Make_ver_crdown
  577.       C=0
  578.     Endif
  579.   Next Msrch%
  580.   If (A>260 And A<300) And (B>85 And B<95) And C=1
  581.     Hidem
  582.     Deffill 0,2,8
  583.     Pbox 260,85,300,140
  584.     Hardcopy
  585.     Showm
  586.     Goto Jloop
  587.   Endif
  588.   If (A>260 And A<300) And (B>105 And B<115) And C=1
  589.     Goto Jloop
  590.   Endif
  591. Loop
  592. Jloop:
  593. Goto Start_prg
  594. '
  595. ' SET ARRAYS
  596. '
  597. Procedure Array_set
  598.   L$(1)="B"
  599.   L$(2)="I"
  600.   L$(3)="N"
  601.   L$(4)="G"
  602.   L$(5)="O"
  603.   Arrayfill B(),0
  604.   Arrayfill I(),0
  605.   Arrayfill N(),0
  606.   Arrayfill G(),0
  607.   Arrayfill O(),0
  608.   Arrayfill Bb(),0
  609.   Arrayfill Ii(),0
  610.   Arrayfill Nn(),0
  611.   Arrayfill Gg(),0
  612.   Arrayfill Oo(),0
  613.   Arrayfill C(),0
  614.   Cd=0
  615. Return
  616. '
  617. Procedure Chk_comp_crd(Ck$)
  618.   Deffill 10,2,8
  619.   If Ck$="B" Then
  620.     If Comptr1%(1,1)=N Then
  621.       Fill 25,79
  622.       B(1)=1
  623.       @Snd
  624.     Endif
  625.     If Comptr1%(1,2)=N Then
  626.       Fill 25,90
  627.       B(2)=1
  628.       @Snd
  629.     Endif
  630.     If Comptr1%(1,3)=N Then
  631.       Fill 25,101
  632.       B(3)=1
  633.       @Snd
  634.     Endif
  635.     If Comptr1%(1,4)=N Then
  636.       Fill 25,112
  637.       B(4)=1
  638.       @Snd
  639.     Endif
  640.     If Comptr1%(1,5)=N Then
  641.       Fill 25,123
  642.       B(5)=1
  643.       @Snd
  644.     Endif
  645.     If Comptr2%(1,1)=N Then
  646.       Fill 208,79
  647.       Bb(1)=1
  648.       @Snd
  649.     Endif
  650.     If Comptr2%(1,2)=N Then
  651.       Fill 208,90
  652.       Bb(2)=1
  653.       @Snd
  654.     Endif
  655.     If Comptr2%(1,3)=N Then
  656.       Fill 208,101
  657.       Bb(3)=1
  658.       @Snd
  659.     Endif
  660.     If Comptr2%(1,4)=N Then
  661.       Fill 208,112
  662.       Bb(4)=1
  663.       @Snd
  664.     Endif
  665.     If Comptr2%(1,5)=N Then
  666.       Fill 208,123
  667.       Bb(5)=1
  668.       @Snd
  669.     Endif
  670.   Endif
  671.   If Ck$="I" Then
  672.     If Comptr1%(2,1)=N Then
  673.       Fill 41,79
  674.       I(1)=1
  675.       @Snd
  676.     Endif
  677.     If Comptr1%(2,2)=N Then
  678.       Fill 41,90
  679.       I(2)=1
  680.       @Snd
  681.     Endif
  682.     If Comptr1%(2,3)=N Then
  683.       Fill 41,101
  684.       I(3)=1
  685.       @Snd
  686.     Endif
  687.     If Comptr1%(2,4)=N Then
  688.       Fill 41,112
  689.       I(4)=1
  690.       @Snd
  691.     Endif
  692.     If Comptr1%(2,5)=N Then
  693.       Fill 41,123
  694.       I(5)=1
  695.       @Snd
  696.     Endif
  697.     If Comptr2%(2,1)=N Then
  698.       Fill 223,79
  699.       Ii(1)=1
  700.       @Snd
  701.     Endif
  702.     If Comptr2%(2,2)=N Then
  703.       Fill 223,90
  704.       Ii(2)=1
  705.       @Snd
  706.     Endif
  707.     If Comptr2%(2,3)=N Then
  708.       Fill 223,101
  709.       Ii(3)=1
  710.       @Snd
  711.     Endif
  712.     If Comptr2%(2,4)=N Then
  713.       Fill 223,112
  714.       Ii(4)=1
  715.       @Snd
  716.     Endif
  717.     If Comptr2%(2,5)=N Then
  718.       Fill 223,123
  719.       Ii(5)=1
  720.       @Snd
  721.     Endif
  722.   Endif
  723.   If Ck$="N" Then
  724.     If Comptr1%(3,1)=N Then
  725.       Fill 56,79
  726.       N(1)=1
  727.       @Snd
  728.     Endif
  729.     If Comptr1%(3,2)=N Then
  730.       Fill 56,90
  731.       N(2)=1
  732.       @Snd
  733.     Endif
  734.     If Comptr1%(3,3)=N Then
  735.       Fill 56,101
  736.       N(3)=1
  737.       @Snd
  738.     Endif
  739.     If Comptr1%(3,4)=N Then
  740.       Fill 56,112
  741.       N(4)=1
  742.       @Snd
  743.     Endif
  744.     If Comptr1%(3,5)=N Then
  745.       Fill 56,123
  746.       N(5)=1
  747.       @Snd
  748.     Endif
  749.     If Comptr2%(3,1)=N Then
  750.       Fill 238,79
  751.       Nn(1)=1
  752.       @Snd
  753.     Endif
  754.     If Comptr2%(3,2)=N Then
  755.       Fill 238,90
  756.       Nn(2)=1
  757.       @Snd
  758.     Endif
  759.     If Comptr2%(3,3)=N Then
  760.       Fill 238,101
  761.       Nn(3)=1
  762.       @Snd
  763.     Endif
  764.     If Comptr2%(3,4)=N Then
  765.       Fill 238,112
  766.       Nn(4)=1
  767.       @Snd
  768.     Endif
  769.     If Comptr2%(3,5)=N Then
  770.       Fill 238,123
  771.       Nn(5)=1
  772.       @Snd
  773.     Endif
  774.   Endif
  775.   If Ck$="G" Then
  776.     If Comptr1%(4,1)=N Then
  777.       Fill 71,79
  778.       G(1)=1
  779.       @Snd
  780.     Endif
  781.     If Comptr1%(4,2)=N Then
  782.       Fill 71,90
  783.       G(2)=1
  784.       @Snd
  785.     Endif
  786.     If Comptr1%(4,3)=N Then
  787.       Fill 71,101
  788.       G(3)=1
  789.       @Snd
  790.     Endif
  791.     If Comptr1%(4,4)=N Then
  792.       Fill 71,112
  793.       G(4)=1
  794.       @Snd
  795.     Endif
  796.     If Comptr1%(4,5)=N Then
  797.       Fill 71,123
  798.       G(5)=1
  799.       @Snd
  800.     Endif
  801.     If Comptr2%(4,1)=N Then
  802.       Fill 253,79
  803.       Gg(1)=1
  804.       @Snd
  805.     Endif
  806.     If Comptr2%(4,2)=N Then
  807.       Fill 253,90
  808.       Gg(2)=1
  809.       @Snd
  810.     Endif
  811.     If Comptr2%(4,3)=N Then
  812.       Fill 253,101
  813.       Gg(3)=1
  814.       @Snd
  815.     Endif
  816.     If Comptr2%(4,4)=N Then
  817.       Fill 253,112
  818.       Gg(4)=1
  819.       @Snd
  820.     Endif
  821.     If Comptr2%(4,5)=N Then
  822.       Fill 253,123
  823.       Gg(5)=1
  824.       @Snd
  825.     Endif
  826.   Endif
  827.   If Ck$="O" Then
  828.     If Comptr1%(5,1)=N Then
  829.       Fill 86,79
  830.       O(1)=1
  831.       @Snd
  832.     Endif
  833.     If Comptr1%(5,2)=N Then
  834.       Fill 86,90
  835.       O(2)=1
  836.       @Snd
  837.     Endif
  838.     If Comptr1%(5,3)=N Then
  839.       Fill 86,101
  840.       O(3)=1
  841.       @Snd
  842.     Endif
  843.     If Comptr1%(5,4)=N Then
  844.       Fill 86,112
  845.       O(4)=1
  846.       @Snd
  847.     Endif
  848.     If Comptr1%(5,5)=N Then
  849.       Fill 86,123
  850.       O(5)=1
  851.       @Snd
  852.     Endif
  853.     If Comptr2%(5,1)=N Then
  854.       Fill 268,79
  855.       Oo(1)=1
  856.       @Snd
  857.     Endif
  858.     If Comptr2%(5,2)=N Then
  859.       Fill 268,90
  860.       Oo(2)=1
  861.       @Snd
  862.     Endif
  863.     If Comptr2%(5,3)=N Then
  864.       Fill 268,101
  865.       Oo(3)=1
  866.       @Snd
  867.     Endif
  868.     If Comptr2%(5,4)=N Then
  869.       Fill 268,112
  870.       Oo(4)=1
  871.       @Snd
  872.     Endif
  873.     If Comptr2%(5,5)=N Then
  874.       Fill 268,123
  875.       Oo(5)=1
  876.       @Snd
  877.     Endif
  878.   Endif
  879.   @Full_five
  880. Return
  881. '
  882. Procedure Full_five
  883.   ' Vertical Columns Card #1
  884.   '
  885.   If B(1) And B(2) And B(3) And B(4) And B(5) Then
  886.     Cd=1
  887.     @Comp_got_bingo
  888.   Endif
  889.   If I(1) And I(2) And I(3) And I(4) And I(5) Then
  890.     Cd=1
  891.     @Comp_got_bingo
  892.   Endif
  893.   If N(1) And N(2) And N(4) And N(5) Then !Includes FREE
  894.     Cd=1
  895.     @Comp_got_bingo
  896.   Endif
  897.   If G(1) And G(2) And G(3) And G(4) And G(5) Then
  898.     Cd=1
  899.     @Comp_got_bingo
  900.   Endif
  901.   If O(1) And O(2) And O(3) And O(4) And O(5) Then
  902.     Cd=1
  903.     @Comp_got_bingo
  904.   Endif
  905.   ' Horizontal Columns Card #1
  906.   '
  907.   If B(1) And I(1) And N(1) And G(1) And O(1) Then
  908.     Cd=1
  909.     @Comp_got_bingo
  910.   Endif
  911.   If B(2) And I(2) And N(2) And G(2) And O(2) Then
  912.     Cd=1
  913.     @Comp_got_bingo
  914.   Endif
  915.   If B(3) And I(3) And G(3) And O(3) Then !Includes FREE
  916.     Cd=1
  917.     @Comp_got_bingo
  918.   Endif
  919.   If B(4) And I(4) And N(4) And G(4) And O(4) Then
  920.     Cd=1
  921.     @Comp_got_bingo
  922.   Endif
  923.   If B(5) And I(5) And N(5) And G(5) And O(5) Then
  924.     Cd=1
  925.     @Comp_got_bingo
  926.   Endif
  927.   ' Diagonal Column on B1 -- Card #1
  928.   '
  929.   If B(1) And I(2) And G(4) And O(5) Then
  930.     Cd=1
  931.     @Comp_got_bingo
  932.   Endif
  933.   ' Diagonal Column on O1 -- Card #1
  934.   '
  935.   If O(1) And G(2) And I(4) And B(5) Then
  936.     Cd=1
  937.     @Comp_got_bingo
  938.   Endif
  939.   ' Vertical Columns Card #2
  940.   '
  941.   If Bb(1) And Bb(2) And Bb(3) And Bb(4) And Bb(5) Then
  942.     Cd=2
  943.     @Comp_got_bingo
  944.   Endif
  945.   If Ii(1) And Ii(2) And Ii(3) And Ii(4) And Ii(5) Then
  946.     Cd=2
  947.     @Comp_got_bingo
  948.   Endif
  949.   If Nn(1) And Nn(2) And Nn(4) And Nn(5) Then !Includes FREE
  950.     Cd=2
  951.     @Comp_got_bingo
  952.   Endif
  953.   If Gg(1) And Gg(2) And Gg(3) And Gg(4) And Gg(5) Then
  954.     Cd=2
  955.     @Comp_got_bingo
  956.   Endif
  957.   If Oo(1) And Oo(2) And Oo(3) And Oo(4) And Oo(5) Then
  958.     Cd=2
  959.     @Comp_got_bingo
  960.   Endif
  961.   ' Horizontal Columns Card #2
  962.   '
  963.   If Bb(1) And Ii(1) And Nn(1) And Gg(1) And Oo(1) Then
  964.     Cd=2
  965.     @Comp_got_bingo
  966.   Endif
  967.   If Bb(2) And Ii(2) And Nn(2) And Gg(2) And Oo(2) Then
  968.     Cd=2
  969.     @Comp_got_bingo
  970.   Endif
  971.   If Bb(3) And Ii(3) And Gg(3) And Oo(3) Then !Includes FREE
  972.     Cd=2
  973.     @Comp_got_bingo
  974.   Endif
  975.   If Bb(4) And Ii(4) And Nn(4) And Gg(4) And Oo(4) Then
  976.     Cd=2
  977.     @Comp_got_bingo
  978.   Endif
  979.   If Bb(5) And Ii(5) And Nn(5) And Gg(5) And Oo(5) Then
  980.     Cd=2
  981.     @Comp_got_bingo
  982.   Endif
  983.   ' Diagonal Column on B1 -- Card #2
  984.   '
  985.   If Bb(1) And Ii(2) And Gg(4) And Oo(5) Then
  986.     Cd=2
  987.     @Comp_got_bingo
  988.   Endif
  989.   ' Diagonal Column on O1 -- Card #2
  990.   '
  991.   If Oo(1) And Gg(2) And Ii(4) And Bb(5) Then
  992.     Cd=2
  993.     @Comp_got_bingo
  994.   Endif
  995. Return
  996. '
  997. Procedure Snd
  998.   Sound 1,15,1,5,1
  999.   Sound 1,0
  1000.   Sound 1,15,7,7,1
  1001.   Sound 1,0
  1002. Return
  1003. '
  1004. Procedure Comp_got_bingo
  1005.   Deftext 1,4,0,6
  1006.   Deffill 0,2,8
  1007.   For Zr=1 To 10
  1008.     Sound 1,15,1,5,1
  1009.     Prbox 100,80,204,112
  1010.     Text 120,100,"!BINGO!"
  1011.     Pause 1
  1012.     Sound 1,15,7,7,1
  1013.   Next Zr
  1014.   Sound 1,0
  1015.   Leave=1
  1016. Return
  1017. '
  1018. Procedure Check_bingo
  1019.   Cls
  1020.   Graphmode 4
  1021.   Deftext 4,0,0,6
  1022.   Text 5,7,"         VERIFICATION SCREEN           "
  1023.   Graphmode 1
  1024.   Print At(2,3);"Name please: ";
  1025.   Form Input 8,Nm$
  1026.   Print At(2,5);"Enter your winning combination"
  1027.   Print At(2,6);"one part at a time. Press RETURN"
  1028.   Print At(2,7);"after each entry."
  1029.   Ck_1:
  1030.   Au=0
  1031.   Print At(2,9);"                                      "
  1032.   Print At(2,9);
  1033.   Print "First entry: ";
  1034.   Form Input 3,Fir$
  1035.   If Fir$<>"FRE" Then
  1036.     Sw$=Fir$
  1037.     @Check_ending
  1038.     If Au Then
  1039.       Goto Ck_1
  1040.     Endif
  1041.   Endif
  1042.   Ck_2:
  1043.   Au=0
  1044.   Print At(2,11);"                                      "
  1045.   Print At(2,11);
  1046.   Print "Second entry: ";
  1047.   Form Input 3,Sec$
  1048.   If Sec$<>"FRE" Then
  1049.     Sw$=Sec$
  1050.     @Check_ending
  1051.     If Au Then
  1052.       Goto Ck_2
  1053.     Endif
  1054.   Endif
  1055.   Ck_3:
  1056.   Au=0
  1057.   Print At(2,13);"                                      "
  1058.   Print At(2,13);
  1059.   Print "Third entry: ";
  1060.   Form Input 3,Thir$
  1061.   If Thir$<>"FRE" Then
  1062.     Sw$=Thir$
  1063.     @Check_ending
  1064.     If Au Then
  1065.       Goto Ck_3
  1066.     Endif
  1067.   Endif
  1068.   Ck_4:
  1069.   Au=0
  1070.   Print At(2,15);"                                      "
  1071.   Print At(2,15);
  1072.   Print "Fourth entry: ";
  1073.   Form Input 3,Fou$
  1074.   If Fou$<>"FRE" Then
  1075.     Sw$=Fou$
  1076.     @Check_ending
  1077.     If Au Then
  1078.       Goto Ck_4
  1079.     Endif
  1080.   Endif
  1081.   Ck_5:
  1082.   Au=0
  1083.   Print At(2,17);"                                      "
  1084.   Print At(2,17);
  1085.   Print "Fifth entry: ";
  1086.   Form Input 3,Fif$
  1087.   If Fif$<>"FRE" Then
  1088.     Sw$=Fif$
  1089.     @Check_ending
  1090.     If Au Then
  1091.       Goto Ck_5
  1092.     Endif
  1093.   Endif
  1094.   Print
  1095.   Print At(2,19);"Satisfied? Y/N  ";
  1096.   Form Input 1,Sati$
  1097.   If Sati$="N" Or Sati$="n" Then
  1098.     @Check_bingo
  1099.   Endif
  1100.   For J%=1 To X%
  1101.     If Fir$="FRE" Or Sv$(J%)=Fir$
  1102.       C(1)=1
  1103.     Endif
  1104.     If Sec$="FRE" Or Sv$(J%)=Sec$
  1105.       C(2)=1
  1106.     Endif
  1107.     If Thir$="FRE" Or Sv$(J%)=Thir$
  1108.       C(3)=1
  1109.     Endif
  1110.     If Fou$="FRE" Or Sv$(J%)=Fou$
  1111.       C(4)=1
  1112.     Endif
  1113.     If Fif$="FRE" Or Sv$(J%)=Fif$
  1114.       C(5)=1
  1115.     Endif
  1116.   Next J%
  1117.   If C(1)=1 And C(2)=1 And C(3)=1 And C(4)=1 And C(5)=1
  1118.     @Winner
  1119.     Yup=1
  1120.     For J%=1 To X%
  1121.       Sv$(J%)=""
  1122.     Next J%
  1123.     Win$=Nm$
  1124.     Open "o",#1,"Winner.fil"
  1125.     Write #1,Win$
  1126.     Close #1
  1127.     Pause 300
  1128.   Else
  1129.     Print
  1130.     Print "    SORRY! CARD NO GOOD"
  1131.     Pause 300
  1132.     Cls
  1133.     Sput Screen$
  1134.   Endif
  1135. Return
  1136. '
  1137. Procedure Make_ver_crdup
  1138.   Inc Ct%(P)
  1139.   If Ct%(P)=76 Then
  1140.     Text Pc,Pr,"FR"
  1141.     Goto Pv
  1142.   Endif
  1143.   If Ct%(P)=77 Then
  1144.     Ct%(P)=1
  1145.     Text Pc,Pr,"  "
  1146.   Endif
  1147.   Text Pc,Pr,Str$(Ct%(P))
  1148.   Pv:
  1149.   Pause 5
  1150. Return
  1151. '
  1152. Procedure Make_ver_crdown
  1153.   Dec Ct%(P)
  1154.   If Ct%(P)=9 Then
  1155.     Text Pc,Pr,"  "
  1156.   Endif
  1157.   If Ct%(P)=0 Then
  1158.     Text Pc,Pr,"FR"
  1159.     Goto Pvv
  1160.   Endif
  1161.   If Ct%(P)=-1 Then
  1162.     Text Pc,Pr,"  "
  1163.     Ct%(P)=75
  1164.   Endif
  1165.   Text Pc,Pr,Str$(Ct%(P))
  1166.   Pvv:
  1167.   Pause 5
  1168. Return
  1169. '
  1170. Procedure Check_ending
  1171.   If Sw$="" Then
  1172.     Print At(2,20);"You must enter something."
  1173.     Pause 100
  1174.     Print At(2,20);"                         "
  1175.     Au=1
  1176.     Goto Leave
  1177.   Endif
  1178.   If Mid$(Sw$,1,1)>"Z"
  1179.     Print At(2,20);"LOCK UPPER CASE"
  1180.     Pause 100
  1181.     Print At(2,20);"               "
  1182.     Au=1
  1183.   Endif
  1184.   If Mid$(Sw$,1,1)<>"B" And Mid$(Sw$,1,1)<>"I" And Mid$(Sw$,1,1)<>"N" And Mid$(Sw$,1,1)<>"G" And Mid$(Sw$,1,1)<>"O" Then
  1185.     Print At(2,20);"First character must be letter BINGO"
  1186.     Pause 100
  1187.     Print At(2,20);"                                    "
  1188.     Au=1
  1189.   Endif
  1190.   If (Mid$(Sw$,2,1)<"0" Or Mid$(Sw$,2,1)>"9") Then
  1191.     Print At(2,20);"2nd character must be a number"
  1192.     Pause 100
  1193.     Print At(2,20);"                                    "
  1194.     Au=1
  1195.   Endif
  1196.   If Len(Sw$)>2 Then
  1197.     If (Mid$(Sw$,3,1)<"0" Or Mid$(Sw$,3,1)>"9") Then
  1198.       Print At(2,20);"3rd character must be a number"
  1199.       Pause 100
  1200.       Print At(2,20);"                                    "
  1201.       Au=1
  1202.     Endif
  1203.   Endif
  1204.   Leave:
  1205. Return
  1206. '
  1207. Procedure Winner
  1208.   Graphmode 1
  1209.   Deffill 4,2,19
  1210.   Cls
  1211.   For Gc%=1 To 10
  1212.     Pcircle 30,50,Gc%
  1213.   Next Gc%
  1214.   Deffill 2,2,19
  1215.   For Gc%=1 To 20
  1216.     Pcircle 250,60,Gc%
  1217.   Next Gc%
  1218.   Deffill 5,2,19
  1219.   For Gc%=1 To 30
  1220.     Pcircle 50,150,Gc%
  1221.   Next Gc%
  1222.   Deffill 10,2,19
  1223.   For Gc%=1 To 25
  1224.     Pcircle 260,170,Gc%
  1225.   Next Gc%
  1226.   For Dt%=1 To 100
  1227.     Color Int(Rnd*15)+1
  1228.     R=Int(Rnd*200)+1
  1229.     C=Int(Rnd*300)+1
  1230.     Plot C,R
  1231.   Next Dt%
  1232.   Deftext 2,0,0,32
  1233.   Text 50,50,"BINGO"
  1234.   Deftext 4,0,0,32
  1235.   Text 100,100,"FOR"
  1236.   Deftext 7,0,0,32
  1237.   Text 100,150,Nm$
  1238.   Deftext 8,0,0,16
  1239.   Text 115,180,"$"+Str$(Cpz)+".00"
  1240. Return
  1241. '
  1242. ' keep the old color pallett
  1243. '
  1244. Procedure Colr_get
  1245.   For I%=0 To 15
  1246.     @Vq_color(I%)
  1247.     Oldcolri(I%)=I%
  1248.     Oldcolrr(I%)=R%
  1249.     Oldcolrg(I%)=G%
  1250.     Oldcolrb(I%)=B%
  1251.   Next I%
  1252. Return
  1253. '
  1254. Procedure Vq_color(I%)
  1255.   Dpoke Contrl,26
  1256.   Dpoke Contrl+2,0
  1257.   Dpoke Contrl+4,0
  1258.   Dpoke Contrl+6,2
  1259.   Dpoke Contrl+8,0
  1260.   Dpoke Intin,I%
  1261.   Dpoke Intin+2,1
  1262.   Vdisys
  1263.   R%=Dpeek(Intout+2)
  1264.   G%=Dpeek(Intout+4)
  1265.   B%=Dpeek(Intout+6)
  1266. Return
  1267. '
  1268. ' restore old colors and end
  1269. '
  1270. Finish:
  1271. For I%=0 To 15
  1272.   In%=Oldcolri(I%)
  1273.   R%=Oldcolrr(I%)
  1274.   G%=Oldcolrg(I%)
  1275.   B%=Oldcolrb(I%)
  1276.   Gosub Vr_color(In%,R%,G%,B%)
  1277. Next I%
  1278. End
  1279. '
  1280. Procedure Vr_color(In%,R%,G%,B%)
  1281.   Dpoke Contrl,14
  1282.   Dpoke Contrl+2,0
  1283.   Dpoke Contrl+6,4
  1284.   Dpoke Intin,In%
  1285.   Dpoke Intin+2,R%
  1286.   Dpoke Intin+4,G%
  1287.   Dpoke Intin+6,B%
  1288.   Vdisys
  1289. Return
  1290. '
  1291. Comp_crd1:
  1292. Data 26,80,26,91,26,102,26,113,26,124
  1293. Data 42,80,42,91,42,102,42,113,42,124
  1294. Data 57,80,57,91,57,102,57,113,57,124
  1295. Data 72,80,72,91,72,102,72,112,72,124
  1296. Data 87,80,87,91,87,102,87,113,87,124
  1297. '
  1298. Comp_crd2:
  1299. Data 209,80,209,91,209,102,209,113,209,124
  1300. Data 224,80,224,91,224,102,224,113,224,124
  1301. Data 239,80,239,91,239,102,239,113,239,124
  1302. Data 254,80,254,91,254,102,254,113,254,124
  1303. Data 269,80,269,91,269,102,269,113,269,124
  1304. '
  1305. Cdata:
  1306. Data 40,60,84,60,128,60,172,60,216,60
  1307. Data 40,89,84,89,128,89,172,89,216,89
  1308. Data 40,118,84,118,128,118,172,118,216,118
  1309. Data 40,147,84,147,128,147,172,147,216,147
  1310. Data  40,176,84,176,128,176,172,176,216,176
  1311. '
  1312. Small_crds:
  1313. Data 23,57,100,128,23,72,100,72,23,83,100,83,23,94,100,94,23,105,100,105,23,116,100,116
  1314. Data 39,57,39,128,54,57,54,128,69,57,69,128,84,57,84,128
  1315. Data 205,57,282,128,205,72,282,72,205,83,282,83,205,94,282,94,205,105,282,105,205,116,282,116
  1316. Data 221,57,221,128,236,57,236,128,251,57,251,128,266,57,266,128
  1317. '
  1318. Big_crds_lbls:
  1319. Data 40,32,"B",85,32,"I",130,32,"N",175,32,"G",220,32,"O"
  1320. Data 60,46,"B1",104,46,"I1",148,46,"N1",192,46,"G1",236,46,"O1"
  1321. Data 60,74,"B2",104,74,"I2",148,74,"N2",192,74,"G2",236,74,"O2"
  1322. Data 60,103,"B3",104,103,"I3",148,103,"N3",192,103,"G3",236,103,"O3"
  1323. Data 60,132,"B4",104,132,"I4",148,132,"N4",192,132,"G4",236,132,"O4"
  1324. Data 60,161,"B5",104,161,"I5",148,161,"N5",192,161,"G5",236,161,"O5"
  1325. '
  1326. Mous_crd_dat:
  1327. Data 33,72,41,66,1,1,40,60,33,72,41,66,2,1,40,60
  1328. Data 76,115,41,66,1,2,84,60,76,115,41,66,2,2,84,60
  1329. '
  1330. Data 121,159,41,66,1,3,128,60,121,159,41,66,2,3,128,60
  1331. Data 163,203,41,66,1,4,172,60,163,203,41,66,2,4,172,60
  1332. '
  1333. Data 207,244,41,66,1,5,216,60,207,244,41,66,2,5,216,60
  1334. Data 33,71,70,94,1,6,40,89,33,71,70,94,2,6,40,89
  1335. '
  1336. Data 75,113,70,94,1,7,84,89,75,113,70,94,2,7,84,89
  1337. Data 119,159,70,94,1,8,128,89,119,159,70,94,2,8,128,89
  1338. '
  1339. Data 164,202,70,94,1,9,172,89,164,202,70,94,2,9,172,89
  1340. Data 208,254,70,94,1,10,216,89,208,254,70,94,2,10,216,89
  1341. '
  1342. Data 33,70,99,123,1,11,40,118,33,70,99,123,2,11,40,118
  1343. Data 77,114,99,123,1,12,84,118,77,114,99,123,2,12,84,118
  1344. '
  1345. Data 119,158,99,123,1,13,128,118,119,158,99,123,2,13,128,118
  1346. Data 163,205,99,123,1,14,172,118,163,205,99,123,2,14,172,118
  1347. '
  1348. Data 208,244,99,123,1,15,216,118,208,244,99,123,2,15,216,118
  1349. Data 33,70,128,153,1,16,40,147,33,70,128,153,2,16,40,147
  1350. '
  1351. Data 76,114,128,153,1,17,84,147,76,114,128,153,2,17,84,147
  1352. Data 119,158,128,153,1,18,128,147,119,158,128,153,2,18,128,147
  1353. '
  1354. Data 164,203,128,153,1,19,172,147,164,203,128,153,2,19,172,147
  1355. Data 208,244,128,153,1,20,216,147,208,244,128,153,2,20,216,147
  1356. '
  1357. Data 33,70,157,181,1,21,40,176,33,70,157,181,2,21,40,176
  1358. Data 75,114,157,181,1,22,84,176,75,114,157,181,2,22,84,176
  1359. '
  1360. Data 119,157,157,181,1,23,128,176,119,157,157,181,2,23,128,176
  1361. Data 163,204,157,181,1,24,172,176,163,204,157,181,2,24,172,176
  1362. '
  1363. Data 208,244,157,181,1,25,216,176,208,244,157,181,2,25,216,176
  1364.